home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00028_Script_28 < prev    next >
Text File  |  1996-11-09  |  2KB  |  98 lines
  1. on enterFrame
  2.   
  3.   set icona to the castnum of sprite 39
  4.   if the casttype of cast icona=#bitmap then
  5.     
  6.     set cx to (the width of cast icona /2)
  7.     
  8.     set cy to (the height of cast icona /2)
  9.     
  10.     set the regpoint of cast icona to point (cx,cy)
  11.   end if
  12.   --set the loch of sprite 39 to 364
  13.   --set the locv of sprite 39 to 240
  14.   -- set the loch of sprite 34 to 90
  15.   --- set the locv of sprite 34 to 0
  16.   
  17.   --set    the width of sprite 39 to 548
  18.   --  set   the height of sprite 39 to 476
  19.   
  20.   -- attivazione menu
  21.   if rollover (3) then
  22.     global mywindow4
  23.     if not objectP(mywindow4) then
  24.       --  set mywindow4 to window("Menu")
  25.       --  set the filename of myWindow4 to "Vividm2"
  26.       --   set the titlevisible of myWindow4 to true
  27.       --  set the visible of mywindow4 to true
  28.       --  open mywindow4
  29.     else
  30.       --forget mywindow4
  31.     end if
  32.   end if
  33.   
  34.   global START_OF,CONTINUE_
  35.   --if continue_<>1 then play "present"
  36.   if START_OF =0  then
  37.     
  38.     global filename,not_reset_book
  39.     
  40.     if not filename or filename="default" or filename="" then
  41.       set filename to ""
  42.       get_lista
  43.     else
  44.       set FILENAME=FILENAME&".BOK"
  45.     end if
  46.     
  47.     
  48.     global cast_m
  49.     set cast_m to 255
  50.     set START_OF=1
  51.     
  52.     play frame "carica"
  53.     
  54.     installa_icone
  55.     
  56.     updatestage
  57.     if not not_reset_book then installa_book
  58.     set not_reset_book=0
  59.     --Refresh_Paper
  60.     set START_OF=2
  61.     --go to "res2"
  62.   end if
  63.   
  64.   global mitch
  65.   installa_icone2
  66.   if mitch then refresh_paper
  67.   refresh_system
  68.   set mitch=0
  69.   set the puppet of sprite 47 to true
  70. end enterFrame
  71.  
  72.  
  73.  
  74. on exitFrame
  75.   --prima di uscire dal ciclo Φ bene controllare se sussistono
  76.   --le condizioni per effettuare una qualche operazione scelta 
  77.   --dall'utente. Per esempio il Resizing o l'Erase di un 
  78.   --oggetto della pagina attiva.
  79.   
  80.   global Resize_of_object
  81.   if Resize_of_object=TRUE then Resize
  82.   
  83.   global quit
  84.   if quit  then 
  85.     play done
  86.   end if
  87.   
  88.   global start_of
  89.   if start_of=2 then 
  90.     installa_icone
  91.     refresh_paper
  92.     set start_of =3
  93.   end if
  94.   
  95.   
  96.   go to the frame
  97.   
  98. end